SetTransverseMercatorParametersCoord Subroutine

private subroutine SetTransverseMercatorParametersCoord(coord, lat0, centM, falseE, falseN, k)

Set parameters for Transverse Mercator reference system

Arguments

Type IntentOptional Attributes Name
type(Coordinate), intent(inout) :: coord
real(kind=float), intent(in) :: lat0

Latitude in radians at the origin of the projection
real(kind=float), intent(in) :: centM

Longitude in radians at the center of the projection
real(kind=float), intent(in) :: falseE

Easting/X at the center of the projection
real(kind=float), intent(in) :: falseN

Northing/Y at the center of the projection

real(kind=float), intent(in) :: k

scale factor

Source Code

SUBROUTINE SetTransverseMercatorParametersCoord &
!
(coord, lat0, centM, falseE, falseN, k)

IMPLICIT NONE

!Arguments with intent (in):
REAL (KIND = float), INTENT (IN) :: lat0 !!Latitude in radians at the origin of the projection
REAL (KIND = float), INTENT (IN) :: centM !!Longitude in radians at the center of the projection
REAL (KIND = float), INTENT (IN) :: falseE !!Easting/X at the center of the projection
REAL (KIND = float), INTENT (IN) :: falseN !!Northing/Y at the center of the projection 
REAL (KIND = float), INTENT (IN) :: k !!scale factor

! Arguments with intent (inout):
TYPE (Coordinate), INTENT (INOUT) :: coord

!------------end of declaration------------------------------------------------

!set Transverse Mercator parameters value

CALL SetTransverseMercatorParametersSystem (coord % system, lat0, &
                                            centM, falseE, falseN, k)

END SUBROUTINE SetTransverseMercatorParametersCoord